home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / DOCS / CHELP / !MakeHelp < prev    next >
Encoding:
Text File  |  1995-07-22  |  1.5 KB  |  41 lines
  1. | Create the StrongHelp version of 'genctxt'
  2.  
  3. Set CHelp$Dir <Obey$Dir>
  4. Set CHelpDest$Dir ram:$
  5. Set CHelpText$Dir <Obey$Dir>.genctxt
  6. Set CHelpSources$Path <Obey$Dir>.gencsrc.
  7.  
  8. RMEnsure StrongHelp 0 If "<StrongHelp$Dir>" = "" Then Error 1 Please run or boot StrongHelp first Else /<StrongHelp$Dir>.!Run
  9.  
  10. RMEnsure StrongHelp 0 Error 1 Could not load StrongHelp
  11. RMEnsure StrongHelp 2.02 Error 1 Your copy of StrongHelp is too old
  12.  
  13. RMEnsure ForEach 0 RMLoad <CHelp$Dir>.ForEach
  14. RMEnsure ForEach 0 Error 1 Could not load Module ForEach
  15.  
  16. | Remove files previously created, ignoring errors
  17. | Must not glob ourself it because the globbing gets confused by deleted files
  18. foreach "Wipe %%0 ~C~VF" -ignore -gsoff -globoff <CHelpDest$Dir>.Chapter*
  19. foreach "Wipe %%0 ~C~VF" -ignore -gsoff <CHelpDest$Dir>.CLang
  20.  
  21. WimpSlot -min 64k -max 64k
  22. | Check free space on destination (some 280k)
  23. Create <CHelpDest$Dir>.Chapter0 10_300000
  24. WimpSlot -min 64k -max 64k
  25. Run <CHelp$Dir>.DOSToHelp <ChelpText$Dir> <ChelpDest$Dir>
  26.  
  27. If <Sys$ReturnCode> <> 0 Then Error 1 Quitting due to error in DOSHelp
  28.  
  29. StrongCreate <CHelpDest$Dir>.CLang
  30.  
  31. | We must glob the copy because StrongHelp cannot handle wildcarded names
  32.  
  33. Unset File$List
  34. foreach "Set File$List |<File$List>" <CHelpDest$Dir>.Chapter*
  35. Set Alias$TmpCommand foreach "Copy |<CHelpDest$Dir>.%%%%0 |<CHelpDest$Dir>.CLang.%%%%0 D" <File$List>
  36. Unset File$List
  37. TmpCommand
  38. Unset Alias$TmpCommand
  39.  
  40. foreach "Copy <CHelp$Dir>.%%0 <CHelpDest$Dir>.CLang.%%0" !Root BackGround Style
  41.